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N 2 
- Cl PORT BOOT DRIVER 15-SEP-1984 t $3: 79: 4g yaneves Macro V04-00 Page 1 


66-SEP-1984 BOOTS.SRCJPABTDRIVR.MAR;2 (1) 
00 TIT LE PA JORIVR - CI PORT BOOT DRIVER | 
88 -IDENT ‘v0Q4-001' 
ae 
44! PITTITITITITIIITI TIT T ITI TTI TTT ITiTii titi iiiii iii iiititiiitiitiiiiiii tii iti i 
3* * 
000 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 3* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
8000 ‘* ALL RIGHTS RESERVED. * 
: # 
0000 3* THIS heer: * a FURNISHED UNDER A LICENSE AND MAY BE USED AND sores * 
4464 3* ONLY IN AC ANC ITH THE T OF CH LICENSE D WITH * 
00 3* INCLUSION ry ABOVE COPYRIGHT NOTICE. THIS RE OR ANY ER * 
0000 3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 3* OTHER PERSON. NO TELTLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8000 37* TRANSFERRED. * 
3% % 
0000 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 :* CORPORATION. 8 
Py * 
0000 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7” ermneeei OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL « 
000038 i= ; 
° 
i444 ITITIIIIII IIIT IIT ITT TT TT ITT T TTI T TTT i titi iii i titi iii iiii iii iiiit, 
000 3 
0000 
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2 
0000 29 3+ 
0000 30 ; FACILITY: BOOTS 
0000 31 ; 
0000 32 ; ABSTRACT: 
0000 33; This module contains the bootstrap device driver for the 
9464 ; : Cl port and disks accessed over it. 
44 36 ; ENVIRONMENT: IPL 31, kernel mode, code must be PIC 
49 ; ; AUTHOR: Kerbey T. Altmann, CREATION DATE: 20-Nov-1981 
0000 40 ; MODIFIED BY: 
0000 41; 
0000 42; v04-001 wMC0001 Wayne Cardoza 05-Sep-1984 
44 : : Built in page table must ot lew for bad pages. 
0000 45; v03-013 KTA3200 Kerbey T. Altmann 26-Jun-1984 
444 : 3 Fix some bugs found during new processor testing. 
0000 48; v03-012 KTA3111 T. Altmann 12-Mar-1984 
0000 49 ; Add Support for boot ng ott gn pelt disks. 
4h 2 3 MAINT-INIT the port after doing dump. 
0000 2 3 v03-011 KTA3082 erbey T. Altm 03-0c t-1983 
4 3 : Redo startup hy Setter vc OPEN veendit tans. 
0000 35 3 v03-010 ROW0230 Ralph 0. Weber 28-SEP-1983 
0000 56 ; hange a B*PQB PTR Offset to : W*PQB_PTR offset near label 
0000 57; 50$ to correct a Link truncation error. 
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04-001 


00061A80 


00000060 
00000060 


0000 28 
44 
000 60 
0000 61 
0000 6 
0000 6 
0000 64 
0000 65 
0000 6 
0000 6 
0000 68 
B888 9 
00 0 
0000 71 
0000 ? 
0000 7 
0000 74 
0000 75 
0000 76 
0000 77 
0000 78 
0000 79 
0000 80 
0000 81 
0000 8 
0000 8 
0000 84 
0000 85 
0000 86 
0000 87 
0000 88 
0000 89 
0000 90 
0000 91 
0000 
0000 9 
0000 94 
0000 95 
0000 96 
0000 97 
0000 98 
0000 99 
0000 100 
0000 101 
0000 18 
0000 10 
0000 104 
3208 105 
000 106 
0000 107 
0000 108 
0000 109 
0000 110 
44 111 
000 i 
0000 11 
0000 114 


v03-009 KTA3075 


V03-008 KDM0059 


v03-006 KTA3067 


v03-005 hel 


v03-004 KTA3034 


v03-003 Page db 


.SBTTL DECLARATIONS 
> INCLUDE FILES: 

SBQODEF 

SBTDDEF 


SCIBDDEF 
ctieee 


SVADEF 
SVMBARGDEF 


: EQUATED SYMBOLS: 


TIME 


DG_SIZ 
MS"SIZ 


SDEFINI PQB 
POB_Q_CMDQ0 


400*1000 


96 
96 


SDEF -BLKQ 


Make status check loo 
will allow booting off disk already ONLINE 


T. Altmann 
at major code entre -t 


Kerbey T. Altmann 
Enhance UNIT_DISC. 


rbey T. Altman 
Redo for new SCS definitions. 
command, support for boot device name, UNIT_DISC. 
Kerbey T. Altmann 
Recover the boot node name. 


Fix misc bugs, add CR bit RSP, 


AX/VMS Macro v04-00 


i 33:38:69 taoors. SRCJPABTORIVR.MAR; 2 


evznug, 1985 


Morse 13-Jul-1983 


Replace use of IPR’ Took maith new *TIMEDWAIT macro. 


02-Jul-1983 


17-Jun-1983 
Add SET CNTRL CHAR 


02-F eb-1983 


Altmann 23-Sep-1982 
low forever 4 no path. 


Boot gio offsets 
evice types 
CI BDT entry def 
CI Buffer handle 
1/0 function codes 
MSCP definitions 
Adapter codes 
CI port registers 
PPD layer definitions 
preceneer registers 
aoa table entries 
offsets 
ets Layer definitions 
Status codes 
Virtual addresses 
VMB argument List offsets 


; Number of 10 micro-sec intervals 


in a 4 second time-wait loop 
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v04-00 p 
/v04=001 DECLARATIONS 6-SEP=1984 ~<a 


ro 
BOOTS. SRC IPABTDRIVR.MAR; 2 (1) 


0008 115 S$DEF 0_CMDQ1 -BLKQ 
001 118 SDEF PQB-Q_CMDQ -BLKQ 
0018 117 $DEF § PQB"Q"CMDa -BLKQ 
| 30 18 SDEF PQB-Q-RESPQ -BLKQ 
028 119 SDEF PQB"L-DFRQ_HDR .BLKL 
O2C 120 SDEF PQB-L-MFRQ-HDR .BLKL 
030 121 SDEF PQB"L_DQE_CEN .BLKL 
034 1 ¢ SDEF PQB-L-MQE"LEN  .BLKL 
0038 123 SDEF PQB"L_VPQB_BASE .BLKL 
003C 124 SDEF PQB"L"-BDT_BASE .BLKL 
| 0040 125 SDEF PQB-L-BDT-LEN .BLKL 
O068 1 $ SDEF PQB-L_SPT-BASE .BLKL 
48 127 SDEF PQB-L-SPT-LEN  .BLKL 
004C 128 SDEF PQB-L_GPT_BASE .BLKL 
0050 129 SDEF PQB"L_GPT-LEN  .BLKL 
0054 130 S$DEF ~L_HOLE -BLKL 
0058 131 SDEF TAB_Q-DFRQ -BLKQ 
0060 13 SDEF B-Q-MFRQ -BLKQ 
0068 133 SDEF TAB_L_STATE -BLKL 
006C 134 SDEF TAB_L_TIMER BLKL 
0070 135 SDEF AB-L_RSTAID ~BLKL 
0074 136 SDEF TAB_L_-PAGETBL .BLKL 
0078 137 SDEF TAB_B_BOT -BLKB 16 
0088 138 SDEF TAB_L_RCONID ~BLKL 
Q0O8C 139 SDEF TAB_L-LCONID -BLKL 
0090 140 $DEF TAB_PRTO -BLKB = MS_SIZ 
OOFO 141 SDEF TAB_PKT1 -BLKB MS_SIZ 
0150 10g SDEF TAB_PKT -BLKB MS_SIZ 
0180 143 SDEF TAB_PKT -BLKB = MS_SIZ 
0210 144 SDEF TAB_PKT4 -BLKB MS-SIZ 
0270 145 SDEF TAB_PKTS -BLKB =-MS_SIZ 
b¢00 146 $DEF TAB_PKT6 -BLKB = MS_SIZ 
0330 147 SDEF TAB_PKT? -BLKB = MS_SIZ 
0390 148 SDEF TAB_PKT8 -BLKB = =-MS_SIZ 
O3E0 169 SDEF TAB_PKT9 LKB =MS_SIZ 
00000450 0450 151 TAB_LEN = .-PQB_Q_CMDQ0 
0450 136 
0450 15 SDEFEND 
0000 154 
0000 155; 
0000 156 ; LOCAL MACROS 
0000 157 ; 
5000 138 -MACRO SQRETRY OPCODE,OPER1,OPER2, ERROR, ?LOOP, 20K 
0000 160 CLRL_ RO 
0000 161 LOOP: OPCODE OPER1,OPER2 
0000 16¢ 
000 16 AOBLSS #63,R0,LOOP 
164 BRW ERROR 
0000 165 OK: 
166 -ENDM SQRETRY 
0000 16 
0000 168 ; 
0000 169 ; OWN STORAGE: 
0000 170; 
0000 «171 


—__—_—__-— ——_—_—_—_—_ 
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“v04-001 DECLARATIONS B-SEP=1984 90:15:09 Ladore seeSPaevonion.man:2 “2% cf) 
00 17% 3 
$ Ve ; Boot driver table entry 
0000 175 
| 44 178 SBOOT_DRIVER DEVTYPE = BIDSK_HSCCI.=- ; Device syee (MSCP/CI) 
One 17 SIZE = PA_DRVSI7,=- 3 Driver size — 

000 178 ADDR = START_DRV,=- ; Driver starting address 
0000 17 ENTRY = PA_DRIVER,- ; Driver entry point 
0000 180 UNIT_INIT = PA_LINIT.- : Driver unit init entry 
0000 13) UNIT DISC = PA_DISC,- ; Driver unit disconnect entry 
0000 «1 ¢ DRIVRNAME = DSRDRVNAME,-; Driver disk name 
0000 18 AUXDRNAME = PRTIDRVNAME,-; Driver oort name 
0000 184 DEVNAME = DEVNAME ; Boot device name 
0000 185 
0000 186 START _DRV: 
0000 187 DSKDRONAME: : E 
58 45 2E 52 45 56 49 52 44 55 44 oy" 93 188 -ASCIC /DUDRIVER.EXE/ ; Disk class driver filename 
0c 0000 
000D 189 PRTIDRVNAME : ; ; 
58 45 2E 52 45 56 49 52 44 41 50 fl sia 190 -ASCIC /PADRIVER.EXE/ ; Port driver filename 
0c 000D 
55 44 OO1A 191 DEVNAME:.ASCII /DU/ ; Boot device name 
O01C 192 TEMPL_MSG: 
0042 O01C 193 -WORD SCS$C_CON_REQL ; SCS$W_LENGTH 
0004 OO1E 194 “WORD PPD$C"SCS"MSG > PPDSW"MTYPE 
0020 195 [WORD SCSSCICONTREO : SCSSW"MTYPE 
0003 0022 196 - WORD : Credi 
0024 197 -LONG 0 
00010001 0028 198 -LONG %*x10001 ; Conid 
00000001 OOS 199 -LONG 1 ; Min send/Status 
20 20 20 4B 53 49 44 24 30 33 33 Ps Oper 200 ASCII /MSCPSDISK / 
SF 4C 43 SF 4B 53 49 44 24 53 4D 56 0040 201 ASCII = /VMSSDISK_CL_DRVR/ 
52 56 52 44 004C 
00000034 0050 202 TEMPL_MSG_LEN=.-TEMPL_MSG 


0000 
00000000 
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-001 ACTION ROUTINES Basep-19R6 90:18309 fecore seeipaeyoniog.mar:2 2% (3) 
0 4 -SBTTL ACTION ROUTINES 
BEE sou 
3; Routines 
05 88 3 
05 38 
05 09 ROUT_TABLE: ; Start of the routines 
05 10 COPY=SYSID: 
OA SA IF 1 0050 1 BB #VASV_SYSTEM,R10,10$ ; If we are in physical mode... 
14 A2 D 054 1 MOVQ PPDS$B g YSTEMID (RE) = ; (i.e. called from bootdriver) 
24 AC Baap 1 vVMBSB_SYSTEM MID(APS ; then return the remote system id 
40 A2 7D 0059 1 mMOVO pPD$O RODENAME (R2) , = : and the node name. 
34 AC b03¢ 1 vMBso “NODENAME (APS 
0S OOSE 16 10$: RSB ; Leave 
O05SF 1 
OOSF 1 ENABLE LSB 
OOSF 19 ALLOC_DG: 
O05F 2 SQRETRY REMQHI,TAB_Q_DFROQ(R7),R2,400$ ; Yank an entry from free queue 
0s i1¢ 443 § vc 500$ ; None, trouble! 
8E D5 007 400$: TSTL (SP)+ : Get rid of first level return 
O4F5 3831 one 2 BRw ERROR ; Return an error status 
05 0075 g 500$:  RSB ; Success 
0076 2 
0076 27 DISCARD: 
54 08 A2 9A 0076 2 MOVZBL paneu size cae) RG ; Get software flag 
51 SBA74G —7E O07A 38 MOVAQ TAB Q-DFRO(R7)ER4J.R1 : Get que head 
007F SQRETRY INSOTT,(R2),(R1),400$ : Put it back 
51 0928 C344 DE 008D MOVAL PA_DFO(R3)CR4I,R1 ; Get correct register 
61 01 DO 0093 MOVL #PR_DFQ_M_DFQC,(R1) ; Tell the port its there 
05 0096 RSB 
0097 
0097 SEND_ACK: 
00020004 8F DO 0097 MOVL #<PPDSC_ACK@16+PPD$C_ACK_LEN>,=- 
10 A2 0090 PPDSW _CENGTH(R2) 


3C = 11S s«OO9F BRB 208 ; Send it out 


SEND_START: 
MOVAB 
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3 
3 
3 
3 
3 
3 
3 
3 
Z 
50 10 A2 9€ OQOAI 4 OV PPD$W_LENGTH(R2) ,RO Set age b+ 
E 4 MOVL  &#<PPDSC_STARTA16+PPDSC _START.L N>, (RO) + 
12 OOAB = 4 BRB 10$ 
00 4 
QOOAA 245 OPEN_VC: 
340~«CO« yy 7 BRB OPEN_VC_CONT : Spacing 
OAC 248 SPIN: 
45 11 OOAC 24 BRB SPIN_CONT 
OOAE 5 
OOAE 5 ASSUME <.-ROUT_TABLE> LT 128 
OAE 52 SEND_STACK: 
7C AE 5 CLRQ PPD$Q -NODENARE (R2) : Cleer gut the node name field 
a3 9E 0081 5 MOVAB PPDS$W-LENGTH(R2),RO Ug 
80 0001908 DO 0085 25 MOVL #<PPDSC_STACKal6+PPDSC state. N>, (RO) + 
DB O0BC 56 10$: MFPR #PRS_SIB,(RO)+ : Sete fake system id 
D4 O00BF 5 CLRL (RO)F Clear hi order 
80 09690060 DO 00C1 5 MOVL vy S1ZQ16°06.S $I12>, (ROS 
B80 42 D0 00C8 25 MOVL  #*A/0MSB/, (RO)? ; Opsys = VMS/VMB 
80 544F4F42 S BF DO OOCF 6 MOVL S°A/BOOT/. (RO) + : Version 


wh Ci Or 
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/v04-001 ACTION ROUTINES Paes Ti 35:38:68 teoors sre PABTDRIVR.MAR; 2 ° (1) 
80 7C O06 61 CLRQ (RO)+ ; Boot time 
0 06 14 6¢ CLRL (RO)+ 
60 ‘ B OODA 26 MFPR = #PRS_SID, (RO) ; Processor id 
036 1 +44 rt: 20$: BRw SEND_0G 
BoE 06 OPEN_VC_CONT: 
19 BO O0E0 26 MOVW = #PPDSC_SETCKT = 
OE Az O0E 68 PPD$B-OPC (R25 ; Set to SETCKT 
) 3¢ O0E4 69 MOVZ2WL #<PPDS$A_CST!PPDSM_NR- 
O0ES 0 'PPDSM_NS>, = ; 
10 A2 £000 8F OOES 71 PPDSW_MASK(R2) ; Open the virtual circuit 
8000 8F 3C BOEA a MOVZWL #PPDSM_CST,- ane 
14 A2 OEE ? PPDSW_M_VAL(R2) ; Clear all but the circuit status 
0356 31 OOF 74 BRwW SEND 
OOF 275 
OOF 376 SPIN_CONT: 
OOF 77 TIMEDWAIT TIME=#33*1000,- 3.1/3 second wait 
OOFS 278 INS1=<MOVL TAB_L_RSTAID(R7) , TAB_L_HOLE(R7)>,= 
OOF3 279 DONELBL=5$ ; Waste time 
05 0121 280 RSB 
0122 281 
0122 282 -DISABLE LSB 
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00000001 
000000 
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AC 
AC 


AC 


AC 


poor aeeye" 


~SBTTL 
STATE TABLE 


: Action table 


TION_TABLE: 
Tl: ACTION 
ACTION 
ACTION 
TIA: ACTION 
ACTION 
SET_ST 
T2: ACTION 
ACTION 
ACTION 
ACTION 
ACTION 
SET_ST 
T3A: ACTION 
T3: ACTION 
SET_ST 
14 SET_ST 
T5 SET_ST 
Té6: ACTION 
SET_ST 
17: ACTION 
SET_ST 
T8: ACTION 


15-SEP-19 
6-SEP-19 


STATE/ACTION TABLES 


nhuoanw 
Ww wreoO 


ACTIO 


N,ROUT 
ROUT-ROUT_TABLE 


SA 
128!STATE 


128!64!STATE 


COPY_SYSID 
OPEN_VC 
ALLOC_DG 
SEND_ STACK 
ST_RECV 
COPY_SYSID 
OPEN_VC 
SPIN 
ALLOC_DG 
SEND_ACK 
OPEN; FINISH 
ALLOC_DG 
SEND_ START 
ST_SENT 
OPEN, FINISH 


OPEN 
SEND_ACK 
OPEN 


DISTARD 
OPEN 


DISCARD 


0 Finis ST, STATE, FINISH 


4 
4 


35:18:65 


; Receipt of START from other side 


; Receipt of STACK from other side 


3: Initia 
: send 


AX/VMS Macro Vv04-00 
BOOTS. SRC JPABTDRIVR.MAR; 2 


lL or timedout action - 
the Ist START 
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PORT BOOT DRIVER 7 SEP-1984 75 AX/VMS Macro v04-00 
/ACTION TABLES 6-$ ise 1984 $3: 78: $$ feoors: SRC JPABTORIVR.MAR;2 
1 8 41 SET_ST CLOSED 
1 tg 
139 45 ACT: oer toe COPY_SYSID 
13A 44 ACTION SEND. STACK 
138 49 345 SET_ST ST_RECV 
13C¢ ‘3 bs 
13C 47 ; State table 
4 C 48 ; 
13¢ «=. 349 STATE_TABLE: 
4 : 9 3 CLOSED ST_SENT ST_RECV OPEN 
4 ‘ 26 «BYTE ACT9=K, ACTI“-X, ACT1-X, ACTB8=X ; START received 
14 5 BYTE eere ue ACT2-x, ACTe“X, ACT6-K ; STACK received 
0144 54 BYTE 3 ACTB-X, ACT4=-K, ACT7=-K ; ACK received 
Bier 2? BYTE ACT -x; ACT A-x, ACTIA=x, ACTS=-xX ; Timeout 
014C¢ 57 ; Dual path data 
014C 58 ; 
014C 359 REM_NODE: 
014C 60 .BY 0,0 ; Dual path nodes 
O14E 70) REM_NODE_INDEX: f : 
014E $¢ -BYTE 1 ; Starting index to select REM_NODE 
014F 36 -BYTE 0O 3; Extra 


Page dy 
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Cl port bootstrap device initialization 6=-SEP-1984 BOOTS. SRC JPABTDRIVR.MAR;2 (1) 
139 $3 -SBTTL CI port bootstrap device initialization 
1 86 +4 
150 68 ; 
150 4 : Inputs: 
150 0; 
180 392 RP ==> VNB li 
3 --> argument List 
150 8 3 . 
B12 74 ; Outputs: 
O18 876; RO d 
3 - status code 
$186 8 : 
0150 78 ;-- 
0150 79 -ENABLE LSB 
0150 80 
0150 81 PA_INIT: 
OSFC bias Hf ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R10> 
OOOOOSAA*EF SC 00 EE 384 MOVL AP, SAVE_AP ; Save the VMB arg List 
FI AF 01 90 0159 85 MOVB #1,REM_RODE_INDEX : Initialize node index 
24 ag 90 015 86 MOVB RPBSL_BOOTR2(R9) ,- > Pick up path! node 
25 a9 90 O16¢ 88 MOVB RPBSC_BOOTR2+1(R9),- ; Pick up path2 node 
E6 AF 016 89 REM_RODE+1 
05 12 0167 90 BMEQ 5$ : Something there 
24 a9 90 0169 91 MOVB RPBSL_BOOTR2(R9),= ; Duplicate path! node 
DOF AF 016C 8 REM_RNODE+1 
03 DD O16E 93 5$: PUSHL @# ; Try this three times | 
07 10 017 94 108: BSBB RE_INIT ; Do the complete initialization 
0350 €8 B17 95 BLBS RO,208 ; Return with success 
FB 6E F5 17 96 SOBGTR (SP),10$ ; Failed, try again 
04 0178 97 208: RET 
0179 98 ; 
a Ea 44 : Initialize the tables needed 
57 O86C'CF 9E 0179 401 RE_INIT:MOVAB W*TABLE,R7 3; Cover the area 
57 OFF C7 9€ Hf43 rei) MOVAB 511(R7),R7 ; Set to round up 
57 OFF 8F AA 018 40 BICW #51 ; _to next page 
00 6€ 99 2C 0188 404 MOVCS #0,(SP),#0,#TAB_LEN,(R7): Zero it all out 
50 38 DB 0190 405 MFPR = #PRS_MAP : Get the mapping status 
0195 406 ASSUME RPBSC_ADPVIR EQ RPBSL_ADPPHY+4 ; 
53 5C_ A940 DO 019 40 MOVL ares, ADPPHY(R9)CROJ,R3 ; Get correct pointer to port registers 
2a 50 €8 B18 £08 BLBS RO,50$ 3; If virtual, skip some set up 
0198 410 ; Mapping is physical 
0198 «411: dla tees 
58 57 00 0198 41g MOVL = R7,RB ; PQB PA=VA 
5A 01 1F 9C 019 41 ROTL #VASV_SYSTEM,41,R10 ; Set the system VA bit 
1¢ AC Ci OIA 414 ADDL3 VMBSQ-UCODE(AP),- ; Start the page table in pre-allocated 
56 20 AC 1A 415 VMBSO_UCODE+4(AP),R6=; menory just beyond the ucode 
55 56 DO O1A8 21% MOVE R ; Save the PA of page table ’ 
54° 4C AD DO O1AB 41 MOVL  RPBSL_PFNCNT(R9) .R4 ; Get the number of page table entries 
54 0104 ¢? CO QIAF $18 ADDL RPBSL_BADPGS(R9) ,R4 ; Add in the bad pages 
51 4 00 8188 41 MOVL R4,R1 3; Save 
52 09 ic 9C 0187 420 ROTL #26 SeaccPTESC_KW!PTESM_VALID>@-28>6°KF ,R2 ; Set up fake a SPT 
86 52 00 O1BB 421 408: MOVL R2, (R6)+ ; Put it in 
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¢¢ D 18 
F854 sCO#F 1C 
1A 1101 
1¢ 
1¢ 
\t2 
58 57 15 #09 EF OIC 
58 50 ons Of 1CA 
58 8668 1CF 
H D4 103 
51 0088 C9 DO 01D 
55 OOAC C9 DO 810A 
1DF 
01DF 
01DF 
56 S58 A? 7E O1DF 
52 28 A? DE O1E3 
62 7E OIE? 
82 C8 QIEA 
O1ED 
Q1ED 
62 86 7E OED 
82 SA C pire 
O1F 
82 0060 8F 3C O1FS 
Bits 
82 0060 8F 3C OIF 
86 05 dO O1FD 
86 00061A80 8F D0 OSo9 
50 FF43 CF 90 0207 
FF3C CF 650) 3601 BD C20 
86 =FF35 CF40 9A Osis 
86 55 SA C9 021 
021¢ 
82 57 SA C9 O21C 
534 
82 56 SA C9 6S5 
66 01 10 9 0224 
0228 
82 D6 0228 
O22A 
82 55 DO 022A 
82 51 00 02 
0330 
0230 
8 0 
63 63 00 0 
0% AS_ 01 00 
4 34 A9 00 7? 
54 28 AG ODO 38 
2§ D4 3F 
14 A3 00 41 
18 AS) «684 ) «=O (0245 


5 
6- 


SEP=1 
SEP=1 
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Step to next page 
Loop until donee 


Get virtual page number 
Find page table entry 
turn inte physical address 


Size sf pose table 


Setaoren free que header 


Ressage free que header 
aye VA bit 


Da an size 


Set sPare to to initial 


Transfer remote port 
remote port/node index 


; Set other path for next time 


Transfer remote port 
re B. psuedo page table 


v ae address of self 


Address of BDT 
Set she valid bit 


ue oe entries in BDT 
addr of page table 
Length 


Clear any SBI errors 


Pick up address of saat 
Get address of ucode 
Set control prere address 


4 ; INCL _R2 : 

4 SOBGTR R4,40$ ; 

4 $ BRB 60$ + Join common 
? g: 3; Mapping is virtual 

458 $08: EXTZV.—s #VASV VPN, #VASS_VPN,R7,RB ; 

429 MOVAL anPest .svA SVASPT (RO) CRBI,RB 

430 ASHL : 

431 CLRL ; Initialize 
4 : MOVL  $RPBSL_SLR(R9).RI : 

2 ? MOVL RPBSL_SBR(R9) ,RS ; Address 

? 5 : Set up the PQB 

139 60$:  MOVAQ TAB_Q_DFROC R7) RG : Point to start 
438 MOVAL PQB"L"DFRQ_HDR(R7).R2 ; Ditt 

439 MOVAQ (R6)4>(R2)~ 3 

440 ISL R10,(R2)+ : Set sys VA bit 
441 ASSUME TAB_Q_MFRQ EQ TAB_Q_DFRO+8 

44 ASSUME PQB-L“MFRQ_HDR EQ -PaB _L_DFRQ_HDR+4 
44 MOVAQ (ROS* (R2)~ ; 

444 ISL R10, (R2)¢ 

445 ASSUME PQB_L_DQE LEN EQ POB_L _méro® ADRS 

44 MOVZWL #0G"SIZ. (R2)¢ : 

44 ASSUME PQB"L_MGE_LEN EQ PQB_L -bde LEN 

448 MOVZWL #MS-STZ,(R2)+ : onene 
449 MOVL #5 tR6)¢ : 

450 MOVL atin (R6)+ : Set timer 
451 ; MOVL RPBSt *BOOTR2 (RO) (R6)+ | 

43¢ MOVE REM NODE INDEX, : Pick 

45 XORB3 a A, »REM_NODE_ INDEX : 

454 movie. & M_NODE ECROJ, (R6)+ ; 

455 1SL RIO7  (R6)+ : $to 

456 ASSUME pap. L_vPQB BASE EQ POB_L <Mae or EN* 

457 SL3 TR7,(R2) 

458 ASSUME PB “L_BDT BASE EQ POB_L _(pa8 BASE+4 
459 SL3 0.6, (Re)+ “3 

460 TL rg #1. (R6 : 

461 ASSUME POB L bore EN EQ POB_L -BbT BASE +4 

46 ASSUME PQB_L_SPT_BASE EQ POB_i port LEN 

464 VL —-RS, TR2)+ ir 
465 ASSUME PQB_L_SPT_LEN EQ PQB_L SPT BASE+ 

46 MOVL  R1,TR2)¢ : And 

46 

468 ; 

+33 ; Now go thru the complicated startup sequence. 
tie 

47¢ MOVL PA xCNE (RS) JPA_CNE (RS) : 

47 MOVL MIN, PA_PMC(R3); b9 maint init 
474 MOVL RPDS. fov VECKRS) OR R4 ; 

475 MOVL BOOSL- “UCODE (R4) -R4 : 

476 CLRL ; 

477 70%: MOVL MADR(R3) : Give CS to C 
478 MOVL Rayer PA_MDATR(R3) : 


Write 4 bytes of ucode 
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oe 
a 


00 01900 F 4 4 479 BISL3 #*xX1000,R2,PA_MADR(R3) ; Set CS_addr of h.o. word 
18 A 4 480 MOVZWL (R4)+,PA_MOATR(R3) ; Write 2 bytes h.o. 
88 opr 08 be. 481 AOBLSS #PA_C Z,R2,70$ 3 Loop until loaded 
000 ig - : 4 : BISL A-PAC_M_PSA,PA_PMC(R3): Set program start addr 
99900200 + DO 0266 4 MOVL #PA-C_UCOBEST,PA_MADR(R3); Set it 
0924 C3 1 00 § : : MOVL #PA_PTC_M_PIC,PA_PIC(R3); Start port 
f +38 ; Wait a while for port to do its thing. 
8 7 488 TIMEDWAIT TIME=TAB_L_TIMER(R7),- ; Time to wai 
73° «489 INS1=<BITL #PA_PMC_M_MIF ,PA_PMC(R3)>,= ; Check status reg 
0 73-490 INS2=<BNEQ 80$5,- ~;"Br if all done 
7 491 BONE LL 0$ 3; Label if all done 
03 50 gs O29F oat BLBS RO, 100$ :; Br if wait time not exceeded 
02c5 31 0 Re 493 908: Rw ROR ; *** Br on yes, ERROR *** 
0900 ¢3 08~=soé AS 495 100$: CMPL #PA_PS_M_PIC.PA_PS(R3) ; Check we are done 
£8 12 O2AA re BNEQ 90$ 3 s** ERROR #28 
0904 (35 DO O2AC 49 MOVL R8,PA_PQBBR(R3) 3; Set the physical addr of PQB 
04A3 02 CB O2B1 498 BISL #PA_PAC_M_MTD,PA_PMC(R3); Disable MS 
o91c C3. 01 «=O 0285 = 499 MOVL § #PATPEC"M~PEC.PA-PEC(R3): Enable the port 
0918 cS —-01~Sts«é# pgBA 209 MOVL #PA_PSR_M_PSC,PA_PSR(R3); Release the status register 
O2BF 206 ; Initialization complete. Shutdown all circuits except that of our 
peer 207 3; remote port. Now send out a REQID to remote port. 
52 0090 C7 DE O2BF 505 MOVAL Tag Py TOCaT) Ae ; Set to cover DG 
55 OF DO 0206 506 MOVL #15,R5 : Set for max port 
70 a7 «55 ««91,s«02C7)=—s-507 1108: = CMPB RS, TAB_L_RSTAID(R7) ; Our remote port? 
1A 13 O2ecB 508 BEQL «=s« 120 ; Yes, skip this 
Oc A2 55 B60 O2CdD 509 MOV R5,PPD$B_PORT(R2) 3; Set port number 
B0 0201 510 MOVW #<PPDSM_RSPa8- 
02d2 511 !PPDSC-SETCKT>, = 
OE A2 0119 BF Bede 218 PPDSB_OPC(R2) ; Set to get it back 
1000 8F 3C O2D7 «51 MOVZWL #PPD$M_6Q1,- 
10 A2 0208 514 PPDSW_MASK(R2) : Inhibit receipt of datagram 
10 A2 DO O2DD 515 MOVL PPDSW_MASK(R2),- 
14 A2 O2eQ 316 PPDSQ_M_VAL(R2) ; Copy mask to value 
0169 30 aseg 51 BSBW SENDX ; Set the circuit 
26 «611+ «2O2E 518 BRB LOOP : and wait for response 
O2E7 519 
bse? 520 Sor CRT: 
DD 55 =F4 e 521 1208: SOBGEQ R5,110$ ; Loop thru them ail 
0 EA 3 : ; Now give 5 of the 6 datagrams to the pgrt to put on the free queue. 
O2EA 524 ; By giving it 6 we can be assured that 3 should always be on the actual 
8 7 : 2 3 Queue and not hidden away in internal caches. 
55 09 00 EA 52? MOVL #9,R5 ; Keep one in reserve 
06 55 91 ED 528 1308: CMPB R584 ; First four are messages 
04 15 4) é 9 BLEQ 132$ 
08 A2 et B° F 0 MOVL #1, PPDSW_SIZE(R2) ; Show as message 
FD7D =: 30 Fg 1 132$: BSBW DISCARD : Put it on free queue 
52 60 a 43 F ¢ MOVAB DEP 4E(R2) .Re 3; Step to next one 
ED 5 F ai ? SOBGTR R5,150$ 
0300 535 ; Now send out a REQID to the remote node to get the handshake started. 


EO 
Ll 3 
| cootperwe = CI PORT BOOT DRIVER 15-SEP-1984 33:78:68 yaalyes Macro V04-00 Page ie. 
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63 Ec010000 af Pa_CUNFC(R3) : Clear ‘don't care’ bits 


QUMNNNE BEER RRR RWS 


| Cl port bootstrap device initialization 6-SEP-1984 BOOTS. SRCJPABTDRIVR.MAR;2 ( 
0 $ ; This will also confirm that the other side is there 
| 05 BO 030 3” MOVW - #PPDSC_REQID,- 
OE A 8 PPD$B-OPC (RO) ; Request ID from target 
| 10 A 7 4 40 CLROQ PPD$Q_RCT_ID(R2) 
gist 3 07 41 BSBwW SEN 3; Send it out and wait 
| 68 A7 4 os 4g , CLRL TAB_L_STATE(R7) ; Set state to closed 
3 rf: [eeeeeerereeeeerereeeeeeeeeeeeenereeeeeeeeeeeeteneeeeeeeeneeeeeeeeeeesereeeeeee 
D : : 
+3 : 3 Wait loop and pseudo-interrupt handler 
4 ITIITIIIIIIIIITITITIT ITI TITITII tT tiiititititiiiiiiiii titi itt Titi 
D : 
24 A? ODS D 50 LOOP TSTL PQB_Q_RESPQ+4(R7) 8 ogee already there? 
59 12 5 BNEQ 7 3; Yes, take it off 
5 TIMEDWAIT TIME=TAB_L_TIMER(R7),-:; Time to wait 
5 INS1=<BITL #PA_PMC_M_MIF ,PA_PMC(R3)>,- ; Check status reg 
5 INS2=<BNEQ 135$>,-": Br if all done 
2 5 DONELBL=135$ 3 Label if all done 
0918 ¢3_——-01~—Ss«éO 5 5 MOVL #PA_PSR_M_PSC,PA_PSR(R3); Release status register to port 
03 50 4 5 BLBS RO, 1408 ; Br if wait time not exceeded 
OOAA 1 § : BRW TIMOUT ; Br on yes 
38 «663)~—Cié«éO*dT o 140$: CMPL PA_CNF(R3) .4NDT$_CI 3; Any config reg bits set except type? 
0c (13 C BEQL 150$ - 3 No. okay _~ eee 
nT) E MOVL &#<PA_CNF_M_CRD- 
F 
F 
F 
F 
F 
5 
8 
A 
F 
6 
8 
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PV IVLVPV DU LVLIV LVI PULULVIVLIVSULUSUSUSIUSUSULIUS US ULUSUSUSUS TSU USISUSISISUSISISISISISTISIASISIO 


D1 CMPL PA_CNF(R3) ,ANDTS_CI ; Try again 
Of 12 BNEQ 1608 ; **® ERROR tex 
51 0900 C dO 150$: MOVL PA_PS(R3),R1 
51 FFFFFFF6 8F D3 BITL #*T<PA_PS_M_RQA!PA_PS_M_PIC>,R1 ; Any bits but RQA or PIC? 
03 13 BEQL 170$ ; No, oka 
OFF 31 re 160$: BRW ERROR ; *** ERROR *e* 
re 3; Remove the entry from the response queue. 
68 170$: $QRETRY REMQHI,PQB_Q_RESPQ(R7),- 
R2, ERROR ; Get next response, addr in R2 
03 1¢ A BVC 175$ ; Br if one 
FF8E 31 4s BRW LOOP :; Br if none 
0S EF O37F 175$:  EXiZV  #PPDSV_STSTYP,- 
03 81 #PPD$S_STSTYP,- 
51 OD A2 Se 5 PPD$B_STATUS(R2) ,R1 ; Check the status 
mm. 8 § BEQL 180$ ; Okay 
Ss + 91 87 CMPB R1,#PPDSC_TYPNP ; Bad, No path? 
bc Os 12 8A 8 BNEQ ; No, something else 
8C 9 TIMEDWAIT HE abe th gi ;_One second wait 
8C 0 INS1=<MOVL TAB_L_RSTAID(R7),TAB_L_HOLE(R7)>,- 
8C 91 DONELBL=500$ ; Waste time ; 
FDBC 31 O3BA 92 BRW RE_INIT ; Retry the whole thing 
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—Oooo wo 
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ee 
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47 
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bee Gee 


80S: 


190$: 


2008: 


210$: 


2208: 


230$: 


B 
TIMOUT: 


240$: 


250$: 


: Use the —— DG type (or timeout) 
able and determine next 


TAB_L_STATE(R7) ,AOPEN 
2658 


3; into the state 


5608: 


265$: 


2708: 


CMPB 
BNEQ 
BRW 


CMPB 


BNEQ 
BRW 


CMPB 
BEQL 
BSBW 
BRW 


CMPB 


MOVZBL 
CMPB 


BGTR 


m 3 


PPD$B_OPC(R2),- 
#PPDSC_SETCKT 
190$ 


SETCKT 


PPD$B_OPC(R2),- 
#PPD$C_INVTC 


200$  ~ 
INVTC 


PPD$B_PORT(R2),- 
TAB_C_RSTAID(R7) 
220$ 


DISCARD 
LOOP 


PPD$B_OPC(R2),=- 


#PPD$C_SNDMSG 
230 
MSG_SNT 


PPD$B_OPC(R2),- 


#PPDSC_DGREC 
2508 

2108 
PPD$B_OPC(R2),- 
gPPDSC_IOREC 
#TIMEOUT,RO 
2608 
PPD$B_OPC(R2),- 
#PPDST_MSGREC 
SCS_MSG 


™~™ 
—_ 
So 


PPDSW_MTYPE(R2) ,RO 


RO,#ST 
216s ~ 


ECV 


ERROR 

@TAB_L prare cor 
ABLELRO 

JABLECA 
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Dispatch on opcode type. 
is shorter than any other way to pick 5 items out of a 


j 


ro V04-00 
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The skip chain used here is very ugly = it 


list of 4 


Is it a sent SETCKT? 


No, ski 


Pp on 


p on 


Yes accept it 
No, get rid of it 


; Is it a sent INVTC? 
; No, ski 


; Is this from our friend? 


; Is it a sert message? 
; Yes, go deal with it 


; is it a received datagram? 
es 
; Not anywhere close 


Is it a received ID 


Yes, 


fake a time out to start up 


Timed out, set code 
Go figure out what to do 


Pick 
Is it 
No, i 


actio 


s is te 
; Yes, 


gnore it 


t 
gnore 


mn to take. 


; Is it a received msg? 
; No, i 
; Yes, go process it 


e 
. handshake DG? 


and the current state to index 


in a legal state? 
inue 


contin 


leave 


Set up to index into : 
the state table to get action offset 


; Point to start in action table 


Pick up offset to routine 


State 


change 


Page 


~~ 
3 Led 


Sak A A Ee ee 
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o 
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Do the routine 
; Try for more 


FC22 CF40 = 16 
F4 


T 
i? PES Bou ~TABLECROJ 


4 O23) 
4 6 
68 A? 50 CO 8F 8B : $2 280$: B1CB3 o1%e RO me. ‘ oe 3; Set new state 
28 50 5% £0 436 654 BBS rO,ve_I : We are finished 
FEDO 331 04 A 639 L: BRW tt ; Else go wait for new arrival 
Oe 4 687 DISABLE LSB 
8 D $23 | chicas deupncedeenebehoennnenenesseonqnnsenbenseneeneneoeseneeneontasenennnesen 
43D 66 ; 
043 $6) : End of wait loop and dispatcher 
be35 206 | scannneebbneonnbeanesdnbenennenennnbeenennnsennenensensbanemmennnbanaeannnns 
430 664 
043D 665 SEND_MSG: 
0 90 043D 666 MOVB #PPD$C_SNDMSG,- 
OE A 043 667 PPD$B-OPC (R25 ; Set opcode to send message 
0441 669 SEND_ANY: 
06 10 0441 #4670 BSBB pe 3 Send the CONNECT and wait 
FS 11 0443 671 BRB 
0445 O76 
01 BO 0445 675 SEND_DG:MOVW #PPDSC_SNDDG,- 
OE A2 0447 674 D$B “OPC (RD) ; Set opcode to send datagram 
70 A? =—BO 20449) = 675 SEND: MOVW TAB_L_RSTAID(R7),= 
OC A2 044C 676 PD$B_PORT(R2) s see a. remote port/station id 
044E 677 SENDX: —e sage *(R2),PQB_Q CMDQ0(R7), 
0908 ¢3. 01 «DO 045C 678 A_ca6_m_cac,PA_Ca0(R3); Tete cal its there 
05 0461 £679 RS" 
0462 680 
046 681 ; F 
Ree oes ; Now the virtual circuit is establised. Send out the CONNECT_REQ 
483 684 VC_IS_OPEN: 
08 A2 01 DO 046 685 MOVL #1, PPDSW_SIZE(R2) : Set software flag 
FCOD 30 0466 686 BSBW =: DISCARD ; Turn the DG into a free message 
FBF3) 30 0469 687 BSBW . LOC_DG :; Grab another datagram 
7E ; 7D 046C 688 MOVQ -( ; Save some registers 
FBAS CF 34 28 O46F 689 MOVC3 atene _MSG_LEN, TEMPL_M 
0474 690 SCS$W~LENGTH-SCS$B BPD tR2) ; Set up the CONNECT message 
52 E 7D 0476 691 mova (SP)+ ; Restore some registers 
08 A2 01 D0 0479 O06 MOVL ni PPDSW_ SIZE(R2) : Set software fiag 
11 bir $27 BRB SEND_ MSG” ; Send out a message 
thd 02? 3; Received a SCS message - process it depending on type. 
68 A7 03 00 O¢7 69 5CS_MSG:MOVL #OPEN, TAB_L_STATE(R7) Set us OPEN 
14 A2. Bi 0483 698 CMPW 86s SCS$W_M TYPESSCS$6_ PPD(R2 23.- 
00 pegs 699 pecesc. _CON_REQ : "Is it a CONNECT request? 
3 13 0487 700 BEQL 203. 
16 A281 0489 701 CMPW 8 SCS$W nTYPE-ScsSB, PPD(R2S = 
01 48C 7 § #SCS$C_C RSP Is it a CONNECT response? 
1F ig 48D 7 BNEQ 30$ No 
03 22 A2 § 48F 704 BLBS SCS$w_ STATUS@SCS$B “pron 10$ 
00D4 1 rh oe BRW ERROR™ : €rror out if bad status received 


—-— --—-— — — senentscmndunel 
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, VO4 CI t bootst devi initializati 6-SEP-1984 15:0 BOOTS.SRCJPABTDRIVR.MAR; 2 (1) 
| FBDD 30 049 f 7 10$: BSBW — ay rid of it to free queue 
oF 11 ras Pe BRB ; Go wait for ACCEPT request | 
| 498 i ; Received a CONNECT_REQUEST = Send back a NOLISTEN status: we do not 
498 711 ; support any connections other than our own MSCP initiated ones. It | 
| rh ay ; is probably the SCS soupy poller. 
OA BO 0498 714 208 MOVW #SCSSC_STN No matching Listener | 
22 Ag 0490 715 SCS$W STATUSe “ss$8 _pPD(R2) 
| 50 TBA 00 O49 716 MOVL  SCS$L_BST_CONID- 
| O4A 71 SCSS$B PPB(R2) RO. 3; Reverse the SRC/DST connection ids 
DO 046A 718 MOVL SCS$t SRC_CONID= = 
4A4 719 SCS$B_PPB(R2),- 
18 A2 1 A2 04A4 £20 SCS$L— =pst CONID- - 
4A8 721 SCS$B-PPDTR2) 
1¢ A2 50 D0 04A8 138 MOVL RO Stes. ~SRC_CONID=SCS$B_PPD(R2) 
27,11 O4ac 123 BRB 50$ 7 Send it out 
14 A2 Bi O4AE se 30$: CMPW SCS$W_MTYPE- yoy _PPD(R2),- 
Oe 0481 726 #SCSSC_ACCP_ 3 Is it an ACCEPT request? 
2 12 ors tse BNEQ 60$ 3; No 
Reps 198 : Received a valid ACCEPT_REQUEST = turn it around to be a ACCEPT_RESPONSE. 
12 BO 0484 731 MOVW #SCS$C_ACCP_RSPL 
10 A2 0486 13 SCS$W sLencTH-S¢ése _PPD(R2) ; Set new Length 
BO 0488 73 MOVW #<PPDSA_RSPa 
0489 734 TPPDSC“SNDHG> ,= 
OE A2 0102 8F 0489 735 PPD$B ah ; Set to get it back 
01 BO O4BE 736 40S: MOVW #SCS$C _STNORM 
22 A2 04C0 737 SCS$W~ STATUS. “StssB_ PPD(R2) ; Set a success status 
50 18 A2 DO 04C2 738 MOVL SCS$L_BST_CONID- : r 
04€6 739 SCS$6 PPB(R2) RO. 3; Reverse the SRC/DST connection ids 
DO 04C6 740 MOVL SCS$L_SRC_CONID=- - 
04C7 741 ScS$6 _PPB(R2) - 
18 A2-1C A2 04(7 243 SCS$L"DST_CONID=- - 
04(CB 74 SCS$B-PPDTR2) 
1C A2 50 p00 04CB 744 MOVL RO sCSEL SRC_CONID-SCS$B_PPD(R2) 
18 Ag 7D O4CF 745 MOVa = SCS$L CONID-SCS$B_PPB(R2) ,- 
0088 C babe 746 TAB °° cat ID(R7) > Store them both tor later use 
14 A2 B6 0405 747 50S: INCW sceeo AT TYPrescs$a =PPD(R2) ; Change to ACP 
FF62 31 0408 148 BRW SEND_ASG > bend {0 cut ond” eet 
14 ag B1 0408 750 60$: CMP SCS$W savsidersam Smt : 
0 O4DE 751 #SCSSC_CR_REQ : Is it an CREDIT request? 
06 12 m4! £36 BNEQ 70$ 3 No 
bce £38 ; Received a CREDIT_REQUEST = send out a CREDIT_RESPONSE and ignore 
80 pee} 756 MOVW #SCS$C_CR_RSP 
10 A O4E 3 757 SCS$wW ~CEneineScsse =PPD(R2) ; Set new Length 
D 11 tee 38 BRB 40% Send it out 
14 A2~ 61 bce? 760 70$: CMPW SCS$W_MTYPE-SCS$B eek: - 
OA O4EA 761 #SCSSC_APPL_MSG ~ ; Is it_an application message? 
7D 12 04EB 76 BNEQ ERROR 3; No, ERROR 
O4ED 763; 
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SED 764 : Received packet was not a datagram or a SCS control message. It must 
rtd £92 3 ; therefor be a MSCP packet. 
| OSA6'CF 25 4 4E £86 3 MOVL Re ou ae MSG ; Hold for later 
O5A2'CF 5 1) GF 768 MOVL mAs 
| 4F 069 ASSUME mstPsy. MASK EQ 0 
FFEO 8F AB 04F7 770 BICw3 ities MAL ST_MASK>= 
| 50 2A Ag 4FB 771 MSCPSW_ STATUSSSt ssa pPD«a2), RO ; Any drive errors? 
| 1 13° O4FE ue BEQL 100$ 3 No, continue 
06 50 B61 050 77 CMPW RO, #MSCPSK_ST_AVLBL ; Yes, is it érive available? 
05 13 050 774 BEQL 3 Yes 
03 50 61 B28 775 CMPW RO, #MSCPSK_ST_OFFLN 3; No, is it no such drive? 
60 i 508 ae BNEQ 3 No, error out 
64 A9 BS OSOA 777 80S: TSTwW RPBSW_UNIT(R9) ; Is this 1st try at the shadow unit? 
18 0O50D 778 BGEQ 90$ : No, ordinay failure 
28 Ao =6BO SOCOSOF = 779 MOVW RPBS$L_BOOTR3(R9) , = ; Yes, replace unit with physical 
64 Ad 0512 780 RPBSQ_UNIT(R9) 
4 #11 Bele oe) BRB ios ; and try the ONLINE again 
FC60)0—s «331 B28 738 90$: BRW RE_INIT ; Failure, start from scratch 
28 A2 91 0519 785 100$: CMPB yy OPCODE=SCS$B _PPD(R2),= 
84 BF 051C 786 #MSCPSK K_OP_STCON! 
OSIE 787 MSCPSK— ~OP- END ; Is it SET CTRL CHAR? 
24 «12 Baik ree BNEQ 120$ 3 No 
$350 790 ; After receipt of the end packet from the SET CTRL CHAR, it is time to 
0520 791 ; attempt to put the unit online. First we check to see if we are bootin 
0520 as ; from a shadowed disk. If so, we attempt the ONLINE to the shadowed uni 
§3¢8 793 ; If that fails, we try the physical unit. If we are booting from a single 
b256 oe ; physical unit, we do nothing special. 
50 2A A9_ B60 b260 796 MOVW RPBSL_BOOTR3+2(R9),RO ; Pick up possible shadow unit 
06 18 0524 #797 BGEQ 110$ ~ 3; Not a shadow unit 
64 a9 50 B80 b256 798 MOVW RO ty UNIT(RI) 3; Use the shadow unit first 
20 A2 «~DE «(052A)«=—799:1108: = MOVAL = $tS$B PPD(R2) RS ; Set RS to cover packet 
85 01 00 ba¢t 800 MOVL A eRe st : Set command ref number 
85 64 A9 3C 0531 801 MOVZWL nPésu UNITCR9), (RS) + ; Put unit number in cmd packet field 
85 09 9A 0535 80 MOVZBL #MSCPSK_OP _ONLIN, (R5)+ ; Set opcode to nt, 8 drive online 
85 7C 0538 80 CLRQ tr Re)e ; Clear byte ay uff desc 
85 7C Q53A 804 CLRQ (Reps : ours Bess and 
65 7C 053C 805 CLRQ CR R5) and copys ; peed 
32 BO O535E 806 MOVW #<-SCS$B_PPD-PPDS$C LeNGTiosMsePsue SHDW T+ 
10 A2 0268 B02 oor LLENGTH=SCSS$B_PPD(R2) ; Set the message Length 
51 11 Beek 43 BRB 3; Send it out 
28 A2 91 «=(0544 810 120$: CMPB ye ty ee PPD(R2),=- 
89 8F 0547 3811 CPSK_OP_ONLIN 
0549 ai¢ wnee P$K"OP -END 3 Is it ONLINE? 
1B «(12 beep ai? BNEQ 130$ Z 
0548 15 : Received packet was a successful ONLINE end packet. Pick up the device 
bees 1g; ; mame from the MEDIA_ID field. 
EF 0948 18 ' EXTZV mmscesy MTYP_D1,- 
0 54D «BT PSS _MTYP pi,- 
51 3C A2 054E 820 mStPSe *AEDIAT 1D- - 
1 
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1 CS$B_PPD(R2),R1 ; Pull out 2nd device character 
| 51 51 08 78 7 ASHL 8 R1,R1 ; Stick it in high byte 
1B COEFF ExTZv #mScp$v_mTYP_D0,- 
0 #MSCPSS_MTYP_DO6,- 

52 3C A2 SCPSL_MEDIA_ ID- = 
SCS$B_PPD(R2T,R2 ; Pull out Ist device character 
51 4040 8F As BISW #*x4040,R1 ; Make ASCII characters 
FAB, CF 52 1 Ag BISW3 R1,R2, DEVNAME ; Set into driver name 
| : Transfer is complete. Return with success status code. 

50 01 3 130$:  MOVZWL #SS$_NORMAL,RO : Set completion code 
05 RSB 3; And return 


; Error occured during transfer. Return and retry. 


RROR: MOVZWL #SS$_CTRLERR,RO ; Set failure status 
RSB ; Return to BOOTDRIVR 


rte 


50 0054 8F 


: Now set the controller characteristics 


DNS NMOS NWOOCOCOCO"F PP POCOOoOoWwWonwu,— 
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= 
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>Pr>r> SSSoe es eS SS Sa NAS NS SSS SS SSSSSSSSssssso oT 
WR SO OD NAUES WN (OO ODNA UNE WIN  O OD NAME WN OOONAUE win 


8 
: 
83 
HE 
83 
83 
83 
84 
Bc 
OE 8435 MSG_SNT:CLRW PPD$B_OPC(R2) ; Clear response flags 
55 220A DE 84 MOVAL <=SCS$B_PPD(R2),R5S : Set RS to cover packet 
85 01 00 84 MOVL 1, (R53¢ 3; Set command ref number 
85 04 84 CLRL (R5)¢+ ; Reserved field 
85 04 9A 84 MOVZBL #MSCPSK_OP_STCON,(R5)+ ; Set opcode to SET CTRL CHAR 
8S D4 84 CLRL + 3; Version & flags 
85 FF 8F 9A 84 MOVZBL #255,(R5)+ ; Set time out to 255 seconds 
85 7C¢ 85 CLRQ (R5)+ ; Clear time and date ‘ 
65 D4 85 CLRL (R5) ; Clear controller os Hp params 
04 B80 85 MOVW #PPDSC_SCS_MSG,- ; Set PPD type to application 
12 A2 85 PPDSW_MTYPE (RO) 3 eessage : 
OA B80 D «85 MOVW #SCS$C_APPL_MSG,- ; Set SCS type to application 
14 A2 F «85 SCSSW-MTYPE-SCS$B_PPD(R2) ; message 
2E_ =B0 1 85 MOVW #<-SCSSB_PPD-PPDSC"LENGTH>+MSCP$Q_TIME+12,- 
10 A2 3 685 SCS$W_LENGTH-SCS$B_PPD(R2)_ ; Set the message length : 
16 A2.— 01~—s BO 5 8580 MOV #1,SCSSwW CREDIT-SCSSB_PPD(R2); Always give back one credit 
0088 C7 7D 9 85 MOVQ TAB_L_RCONID(R7),- 
18 A2 D 86 SCSSC_DST_CONID-SCS$B_PPD(R2) ; Set correct xct_id. 
31 4 ae BRwW SEND_MSG ; Send it out and wait 
00000000 2 863 POB_PTR:.LONG 0 
00000000 6 864 NXT-MSG:.LONG 0 
00000000 A 865 SAVE_AP:.LONG 0 


Ne ~— 


ee 
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ne rt -SBTTL CI port bootstrap driver Q10 
SAE 9 5+ 
SAE % ; 
SAE 71 ; Inputs: 
SAE og : 
SAE ‘> ¢ R3 - base address of adapter's register space 
SAE 74; RS - lon for aren piece of transfer 
SAE 19 3 R = contains 
SAE 6 : 5 - size of transfer in bytes 
SAE 77 ; R9 - address of the RPB 
Bane 78 ; R10 - starting address of transfer (byte offset in first 
Bene ie ; page ORed with starting map register number) 
OSAE 881 ; FUNC(AP)= 1/0 operation (IO$_READLBLK or J0$_WRITELBLK only) 
Bene +H ; MODE(AP)= Address interpretation mode (0 = physical, 1 = virtual) 
OSAE 884 ; Outputs: 
OSAE 885 ; 
OSAE 886 ; RO = status code 
OSAE 887 ; SS$_NORMAL - successful transfer 
OSAE 888 ; SS$_CTRLERR - fatal controller error 
OSAE 889 ; 
OSAE 890; R3 - must be preserved 
OSAE 891 ; 
OSAE 892 ; NOTE: 
Bane 354 $ This routine can be called with four combinations of mapping: 
OSAE 895 ; 1) MODE(AP) = physical and PRS_MAPEN = physical. This is the case 
OSAE 896 ; when being called from BOOTDRIVR. We use the made up page 
beac Son 3 table that maps VA = PA for both the port and BDT page tables. 
OSAE 899 ; 2) MODE(AP) = virtual and PRS_MAPEN = physical. This is the case 
OSAE 900 ; when being called from SYSBOOT to read in SYS.EXE using 
OSAE 901; the real system page table. We contiue to use the made - 
OSAE 902 ; page table for the port, but use the real system page table 
beac aR7 3 for the BDT. 
QSAE 905 ; 3) MODE(AP) = virtual and PRS_MAPEN = virtual. This is the case 
OSAE 906 ; when being called from BUGCHECK to read in the non-resident 
OSAE 907 ; portion of the bugcheck code. We use the real system page 
Bear 443 : table for both the port and the BDT. 
Bane 910 ; 4) MODE(AP) = physical and PRS_MAPEN = virtual. This is the case 
SAE 911 ; when being called from BUGCHECK to write out all of physical 
OSAE 31g : memory from the descriptors in the RPB. We use the real 
QSAE 913; system page table for the port, but make up a new pagetable 
QSAE 914 ; for the BOT. This table is only a page long since the max 
QO5SAE 915 ; IOSIZE is 127 pages. This table is created on the fly with 
OSAE 916 ; the first entry being the first PFN to be written out. 
OSAE 917 ;-- 
OSAE 918 
00000010 Beak 919 FUNC = 16 
00000014 an 3 9 MODE = 20 
Sear 9 § PA_DRIVER: ; CI/HSC device driver. 
OSAE 9 
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04-001 Cl port bootstrap driver Q10 Pat sett 9 $3:38:68 feoots sre PABTDRIVR.MAR;2 . (1) 
43 4 : ENABLE LSB 
ane 9 § ; Translate the 1/0 function code into a device-dependent function 
SAE 927 ; code for this disk. 
He: 
5 Fl AF oe) beh 930 MOVL PQB PTR R? ; Cover the PQB etc 
54 A7 10 AC DO 058 931 MOVL FUNC (AP), TAB_L_HOLE(R7) : Temp store function 
A7 04 00 058 S ¢ MOVL #4, TAB_L_STATETR7) : Show we are in message 
52 ES AF DO O58B 9 MOVL NXT_M ; Pick up message buffer 
x gx tuo meg Ree Sas RHA SSSCEL GATE NT Gg pcr oncom ee ort 
R10, : Ge e e offse 
maa? 84 «BOO BF OAD OSES 8 g Bisus #*X8000 -Re-- , 
o5cc 9 TAB_B_BDT+CIBDSW_FLAGS(R7) ; Set the boff and valid 
7C A?) «6558 =O SCS O98 MOVL R8,1AB-B BDT+CIBDSL_BLEN(R7) 3; set the byte count 
54 SA 15 O09 EF 0500 939 EXTZvV #VASV_UPR, av 7R10,R4 3 Pick up page table offset 
51 50 A9 80000000 8F C9 05D5 940 BISL3 #VASM~SYSTEM,RPBSL_SVASPT(R9),R1: Virtua 
35 14 aC EB bee 3t) BLBS MODE (AP) , 30$ ; Pick correct page table 
bee 343 ; CASE 1 or 4: MODE = physical 
51 74 A? DO OSE2 945 MOVL TAB_L_PAGETBL(R7) ,R1 3; Physical 
50 38 DB OSE6 946 MFPR #PRS_MAPEN,RO : Check the current addr mode 
28 50 =s«éE 34 +44 BLBC RO, 30$ ; Normal, skip out 
OSEC 949 ; CASE 4: MODE = physical, PRS_MAPEN = virtual 
O5eC 950 > Send an INVALIDATE TRANSLATE CACHE to port 
BO OSEC 228 MOVW #<PPDSM_RSPa8- 3; Send a INVALIDAT and 
OSED 95 !PPDSC_INVTC>,= 3; set to get it back 
OE A2 0118 BF OSED 954 PPD$B~OPC (R25 ; but leave port alone 
5C BS AF 0 QSF2 955 MOVL SAVE _AP,AP ; SEND codes expects AP->VMB 
FEGB «31 «(05F6 (956 BRW SEND-ANY : Do it 
OSF9 =: 957 
OSF9 958 INVTC: ; Return 
B4 O5F9 959 CLRW PPDS$B_OPC(R2) : Clean up packet 
51 6C°AF DE OSFC 960 MOVAL B*PPAGTBL,R1 3: New page table 
5A 558 =F? BF O78 «(0600S s(961 ASHL = #-9,R8,R10 : Number of pages 
50 51 dO 0605 96 MOVL R1, : Copy start of table 
80 54 90000000 8F (C9 $84 963 208: BISL3 #<PTESC_KW!PTESM_VALID>,R4,(RO)+; Fake up a page table entry 
54 D6 061 964 INCL 3; Next PFN 
F3 SA FS pole 965 SOBGTR R10,20$ 3; Loop until done 
54 D4 Bele 208 CLAL R4 3; Use start of fake table 
pol? oe8 3; ALL mapping done. Format the write packet and send it out 
0080 C7 6144 DE 0617 970 30$: MOVAL (R1)CR4),- 
061D 971 TAB_B_BOT+CIBDSL_SVAPTE(R7)  ; Set it in *#* TEMP eee 
56 28 A2 DE 0610 376 MOVAL MSCPSB-OPCODE-SCS$B_PPD(R2),R6 ; Point into message 
86 21 9A 0621 97 MOVZBL #MSCPS$R_OP READ (R6J+ ; Assume read — 
20 54 a7 BI 4 97% CMPW = TAB_L_HOLETR7) ,#10$_WRITELBLK =: Check for write function 
& $8 628 975 BNEQ 0$ ; No, do read : 
FC A6 ; 062A 976 MOVB #MSCPSK_OP_WRITE,-4(R6) ; Set write function code 
86 DO O62— 977 40S: MOVL RB, (R6)F ; Set the byte count 
8 D4 0631 £978 CLAL (R6)+ 3; Set no offset in buffer 
a. a F 9c 0633 979 ROTL #16,41, (R6)+ 3; BUffer name 
86 0088 C7 DO 0637 980 MOVL §TAB_L_RCONID(R7),(R6)+* ; 


carga 
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CI port bootstrap driver Q10 6-S 984 :0 BOOTS sRCS PABTDRIVR.MAR; 2 (1) 
66 3 4 eet 981 MOVL R5, (R6) ; Set the logical block number 
3 B 65F 9 ¢ MOVW #<=SC(S$B_PPD-PPD$C LENGTH> #MSCPSL _LBN+4,= 
10 A 641 98 SCS$W_LENGTH=SCS$B_PPD(R “Set the message Length 
5C 6FF63 CF ODO 43-984 MOVL SAVE_AP , AP SEND codes expects AP->vMB 
FF4A 8631 0648 985 BRW Q ; Send and wait 
064 986 
0648 987 -DISABLE LSB 
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Cl port bootstrap device disconnect 66-SEP-1984 BOOTS .SRCJPABTORIVR.MAR; 2 
648 989 -SBTTL CI port bootstrap device disconnect 
648 990 
648 991 544 
648 838 ; This routine disconnect the boot device after a bugcheck dump. 
648 995 ; It sends an AVAIL packet to the controller, in effect coring a 
648 994 ; dismount of the system device. It is designed to be calle 
648 995 ; only from BUGCHECK immediately after the dump has finished. 
648 236 ; It assumes virtual mapping turned on. 
| 648 997; 
0648 998 ; Inputs: 
0648 999 ; 
648 1900 3 R9 ==> RPB 
648 1001 ; AP ==> VMB argument List 
0648 1006 3 
0648 1003 ; Outputs: 
0648 1004 ; 
0648 1005 ; RO - status code 
0648 1006 ; 
0648 1007 ;-- 
0648 1008 -ENABLE LSB 
0648 1009 
0648 1010 PA_DISC: 
008C 0648 1011 «WORD “M<R2,R3,R7> 
0640 a 
57 FF51 CF DO 064D 101 MOVL PQB_PTR,R7 ; Cover the PQB etc 
52.. FFSO CF DO 0652 1014 MOVL NXT _MSG,R2 ; Pick up message buffer addr 
53 60A9 D0 0657 1015 MOVL RPBSL_ADPVIR(RY) ,R3 3 Pick up pointer to adp 10 space 
08 9A 0658 1016 MOVZBL #MSCPSK_OP_AVAIL,- 3; Make drive AVAILable 
28 A2 065D 1017 MSCP$B-OPTODE-SCS$B_PPD(R2) 
1A BO O65F 1018 MOVW #<-SCS$B_PPD-PPDSC_LENGTH>+MSCP$B_OPCODE+4,- 
10 A2 0661 1019 SCS$W_LENGTH-SCS$B_PPD(R2) ; Set the message length 
2 30 0663 1020 BSBwW SQ ; Send and wait 
04 AS 01 DO 0666 1021 MOVL #PA_PMC_M_MIN,PA_PMC(R3); Do maint init to shut down port 
04 066A 10ee RET 
0668 102 
066B 1024 ; 
0668 1025 ; Data area 
0668 1026 ; 
0000066C 0668 1027 2 =<. +3>8-4 : ALIGN LONG 
0000086C 066C 1028 PPAGTBL:.BLKB 512 
00000EBC Rees + 4 TABLE: .BLKB TAB_LEN+512 
OOOOOEBC OEBC 1031 PA_DRVSIZ=.-START_DRV 
OEBC 1938 
OEBC 10 - END 
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| STABLE s 000 R NDT$_CI = 38 
ACT} 88 122 R NXT_ASG OAs R 03 
ACTIA 0000125 R OPER z 30 
ACT 0000128 R OPEN_VC 4 AAR 93 
ACT O00012F R OPEN VC_CONT OOOEO R 
ACT3A B28 12E R PA_CRF 00000 
ACTS 4 1351 R PA_CNF_M_CRD = 000100 
ACTS 0000132 R PA_CNF_M_MXTFLT = 0800 B08 
ACT 0000133 R PA_CNF_M_PARFLT = 80000000 
ACT BoN8t B 0 PA_CNF_M_URDFLT = 20000000 
ACTS 0000137 R 0 PA_CNF_M_WSQFLT = 40000000 
ACTS 0 901 9R 03 PA_CNF_M_XMTFLT = 94000000 
ACTION. TABLE 0000122 R A-CQ0 00009 
0C_6G OOOOOSF R 03 PA_CQ0_M_Cac = 44 8 
BOOSL_TENUSEC = 0000003 A_CQ1 000090C¢ 
BQOSL_UBDELAY = 0000004 pAncae 494 84 
O$L_UCOD = 000000 ca 0000914 
BIDSK_HSCCI = 00000020 PA_C_UCODEST = dtd 
CIBOSC_BLEN = 00000004 PA_C-wCSSI = 00000C00 
CIBDSL_SVAPTE = 00000008 “DFaQ 00000928 
CIBDSW_FLAGS = 00000000 PA_DFQ_M_DFQC = 00000001 
CLOSED = saa 944 “bist 00000648 R 03 
COPY_SYSID 00000050 R 03 PA_DRIVER OOOOOSAE R 03 
DE VNAME QOOOO0TA R 03 PA_DRVSIZ = Q0000EBC 
$1Z 00000060 PA_INIT 00000150 03 
DISCARD 00000076 R 03 PA_MADR 00000014 
SKDR 00000000 R 03 PA_MDATR 00000018 
ERROR 00056A R 03 _MFQ 4 49595 
FUNC = 00000010 PA_MTC 000009350 
INVTC QOOO0SF9 R 03 PA_MTEC 00000934 
10$_WRITELBLK = 00000020 PA_PDC 00000920 
L 0000043A R 03 PA_PEC 0000091C 
LOOP 0000030D R 03 PA_PEC_M_PEC = i444 4 
MODE = 00000014 PA_PESR 0000093c 
MSCP$B_OPCODE = 00000008 PA_PFAR 00000938 
MSCPSK_OP_AVAIL = 00000008 PA_PIC 00000924 
MSCPSK_OP_END = 00000080 PA_PIC_M_PIC = 00000001 
MSCPSK_OP_ONLIN = 00000009 PA_PMC 4 94 4 
MSCPSK_OP~READ = 00000021 PA_PMC_M_MIF = 00000008 
MSCPSK_OP_STCON = 00000004 PA_PMC_M_MIN = 00000001 
SCP$K—~OP_WRITE s 90000022 PA-PMC_M_MTD = 90000002 
MSCPSK_ST_AVLBL = 00000004 PA_PMC_M_PSA = 0000004 
MSCPSK_ST_OFFLN = 00000003 PA_PPR 00000940 
MSCPSL_BYTE_CNT z 4 PA_PQBBR ai 
MSCPSL_ = 0000001C PA_PS 0000900 
MSCPSL_MEDIA_ID = 0000001C PA_PSR 00000918 
MSCPS$Q_TIME = sie 4 9 PA_PSR_M_PSC = 00000001 
MSCPSS_MTYP_DO = 00000005 PA_PS_A_PIC = 00000008 
MSCPSS_MTYP-D1 = 00000005 PA-PS-M_ROQA = 90088001 
MSCP$S_ST_MASK = 00000005 GTBL 000066C R 03 
MSCPSV_MTYP_DO = 00000018 PPD$B_DEF_ST 0000001¢ 
MSCPSV_MTYP-D1 = 00000016 PPDSB_FLAGS eee 
MSCPSV_ST_ MASK = sith $4 PPDSB_HWVERS B38 4 
MSCPSW_SHDW_UNT = 00000020 PPD$B_LBDATA 000001 
MSCP$W"STATOS = OO ORROA PPD$B_LCB_0 B08 1 
MSG_SNT 0008 OR 03 PPD$B-LCB-LPORT 8 001 
$_$12 = 00000060 PPD$B_LCB_NPORT 0000F 
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| Symbol table 6-SEP=1984 20:15:07 (CBOOTS.SRCJPABTDRIVR.MAR; 2 (1) 
PPD$B_LCB_OPC 11 PPDSM_RSP = 00000001 
PPD$B_LCB_PORT 43 PPD$Q_CURTIME 4 
PPDSB_OPC E PPD$Q_NODENAME 4 
PPD$B_PORT oc PPD$Q_SWINCARN 2 
PPD$B_ PROTOCOL 1A PPD$Q_XCT_ID 38 001 
PPDSB_RSTATE . 5 DS$S_STSTYP = 0 9 
$B_RST_PORT 4 PPDST_HWTYPE 0000030 
PPD$B_STATUS 0000000 PPDST_SWTYPE 4443 0 
$8_SwF 0000008 PPDST_SWVERS 0000024 
PPD$B_SYSTEMID 0000014 PPDSV_STSTYP = 00000005 
PD$B_TYP O00000A PPD$W_LCB_LEN7 000000 
SC_ACK = 44453 PPDSW_LENG 4548 
SC_ACK_LEN = 00000004 $W_MAS 000001 
PPDSC_DGREC = 4 sgt PPDSW_MAXDG 0000001C 
PPDSC_IDREC = ia : PPDSW_MAXMSG paisa 
PPDSC_INVTC = 0000001 PPDSW_MTYP 000001 
PPDSC_LB_LENGTH 44 PPDSW_M_VAL 444 9 
PPDSC_LCB DATA 0000001 PPDSW_STZ 944414 
PPDSC_LENGT 0000001 PQB_L-BDT_BASE 0000003¢ 
PPDSC_MIN_DGSIZ 0000005 PQB_L_BOT LEN 4 44 
PPDSC_MSGREC = 0000002 POB-L-DFRO_HOR 44 $54 
PPDSC_REQID = 0000000 PQB_L_DQE_ 00000030 
PPDSC_SCS_MSG = 00000004 PQB_L_GPT_BASE 0000004¢ 
PPDSC_SETCKT = 00000019 PQB_L_GPT LEN 00000050 
PDSC_S = 00000001 PQB_L_MFRO_HDR TOO Se 
PPDSC_SNDMSG = 00000002 PoB-L_mae_C 444 4 4 
PPDSC_STAC = 00000001 PQB_L_SPT_BASE 0000044 
PPDSC_STACK_LEN = 0000003€ PQB"L-SPT"LEN 00000048 
PPDSC_STA = 00000000 PQB_L-VPQB_BASE 00000038 
PPDS$C_START_LEN = aa te PQB_PTR aeeetes, R 03 
C~TYPNP = 0000000 PQB-Q_CMDa0 0000000 
PPDSK_LB_LENGTH 0000046 PQB_Q_CMmMDQ1 00000008 
PPDSK_LENGTH 00000012 PQB_Q_CMDQ 00000010 
PPDSL_BL INK 00000004 PQB_Q_CMDQ 00000018 
PPD$L_DG_DISC 00000028 PQB-Q-RESPQ 44'S + 
PPDSL_FLINK 00000000 PRS_MAPEN = 00000038 
PPDSL_IN_VCD 00000018 PRS _SID = 0000003E 
PPDSL_LBTRC 0000004 PRTBRVNAME 00000000 R 03 
PPDSL_PO_ACK 0000001 PTESC_KWw = 10000000 
SL_PO_NA 00000014 PTESM_VALID = pogonege 
PPDS$L_PO_NRSP 00000018 Q 00000595 R 03 
PPDSL_P1_ACK 0000001C REM_NODE 0000014C R 03 
PPDSL_P1_NAK 0000020 REM_NODE_ INDEX Ben 36 R 03 
PPDSL_P1_NRSP 000024 RE_INIT 4 R th 
PPDSL_REC_BOFF 0000028 TABL 0000050 R 0 
PPDS$L_REC 00000024 RPBSC_ADPPHY = 0000005¢ 
PPDSL_RPORT_F CN 00000020 PBSL_ADPVIR = 00000060 
PPDSL_RPORT_REV 0000001¢ RPBSL_BADPG = 00000104 
PPDSL_RPORT TYP see's St RPBSL_BOOTR = 00000024 
PPDSL_SND_BOFF 000002 RPBSL_BOOTR = 00000028 
“SND-N git RPBSL_IOVEC = 00000034 
PPD$L_ST_ADDR 18 RPBSL_PFNCNT = 0000004C 
PPDSL-XCT_LEN 990 0 18 RPBSL-SBR z 99000 A 
PPDSM_CST = 0000800 RPBSL_SLR = 38 
PPD$M_DQI = si 100 RPBSL_SVASPT = 000000 
PPDS$M_NR = 0000400 RPBSW-UNIT = es 
PPDSM_NS = 0000200 SAVE _AP QOO0SAA R 03 
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Symbol table b-seP-1 984 33:38:08 YBOOYS. SReIPABTORIVR.MAR: 2 = (1) 
SCS$B_PPD s prerere TAB_Q_MFRO 0060 
SCSSC_ACCP_REQ = 99 TEMPL-MSG O¢ CR 03 
SCSSC_ACCP_RSPL = 001 TEMPL-MSG_LEN = 4 
SCSSC"APPL-MSG z OA TIME z 6148 
SCS$C_CON_REQ 2 TIMEOUT = 00 30 
SCS$C_CON_REQL = 0000004 TIMOUT OO3F3 R 03 
SCSSC_CON-RSP = 000 590 VASM_BYTE = QOOO01FF 
SCS$C_CR_REQ = 464 08 VASM_SYSTEM = 4 4 34 
SCSSC_CR_RSPL = 4 44 VA$SS_V = 0000001 
SCSSC_STROMAT = 0000000A VASV_SYSTEM = 0000001F 
SCSSC_STNORMAL = 00000001 VASV_VPN = 00000009 
SCSS$L_DST_CONID = FFFFFFFS J _OPE B08 2R 03 
SCS$L_SRC-CONID = FRFFFFFC VMBSB_SYSTEMID 0000024 
SCSSW_CREBIT s pecceece VMBSC_ARGBYTCNT 0000003¢ 
SCSSW_LENGTH = FFFFFFF VMBSL_CI_HIPFN 0000030 
SCSSW_MTYPE = FEFFFFFS MBSL_FLAGS 000002C 
SCS$W_STATUS = see agg VMBSL_HI_PFN 0000010 
SCS_MSG 0000047F R 83 VMBSL_LO_ PF 0000000C 
00000449 R 0 vMBS$Q"F ICECACHE 00000004 
QO00044E R 03 VMB$Q_NODENAME 00000034 
SEND_ACK 00000097 R 03 VMB$Q_PFNMAP 00000014 
SEND_ANY 00000441 R 03 VMB$Q_UCODE 0000001C 
SEND_DG 00000445 R 03 x 00000122 R 03 
_MSG 0000043D R 03 
SEND_STACK QOOOO0AE R 03 
SEND _ START Q00000A1 R 03 
SETCRT 000002E7 R 03 
SIZ... = 00000001 
SPIN QOOOOOAC R 03 
SPIN_CONT OQOOOO0F3 R 03 
SS$_CTRLERR = 00000054 
sss = 00000001 
START_DRV a4 4 8 03 
STATE_TABLE 0000013C R 03 
ST_RET = 00000002 
ST_SENT = 00000001 
TABL 0000086C R 03 
TAB_B_BDT 00000078 
TAB_LE = i449 4 
TAB_L_HOLE 000054 
TAB_L_LCONID 0000008C 
TAB_L_PAGE TBL 00000074 
vas-toasia 20000085 
TAB_L-S7ATE 8000068 
“L~TIMER 0000006C 
“PRTO ina | 
TAB_PKT1 0000F 
TABPKTe 0000150 
TAB_PKT 0000180 
TAB_PKT4 00021 
TAB-PKTS 0000270 
TAB_PKT6 00 9 p0 
TAB_PKT? 38 
TAB_PKTS 0000390 
TABPKT9 00003F 
TAB~Q_DFRO 000005 
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! Psect synopsis ! 
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| 
PSECT name Allocation PSECT No. Attributes 
» OBS « 0000000 < ) 60 ( 3 NOP IC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000944 ( 2372.) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
BOOTDRIVR_4 0000028 ( 40.) ( -) NOPIC USR CON REL LCL NOSHR’- EXE RD WRT NOVEC BYTE 
BOOTDRIVR-2 OOOOEBC ( 3772.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
b$erenemnm en reece new ses ecnen$ 
: Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization | 36 00:00:00. 19 60 :00:00.76 
Command processing 156 00:00:00.8 00:00:03.49 
Pass 1 523 OF 8 68°38 00:00: 2-06 
Symbol table sort ¢ 00:00: -¢0 00:00:05.1 
Pass 18 00:00:04.37 00:00:08.05 
Symbol table output 36 00:00:00.27 00:00:00.29 
Psect synopsis output 2 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 ee as Bee 
Assembler run totals 940 00:00:31.25 00:00:57.4 
The working set_Limit was 2000 pages. : 
122365 bytes (239 pages) of virtual memory were used to buffer the intermediate code. 
There were 110 pages of symbol table space allocated to hold 2020 non-local and 71 local symbols. 
1033 source Lines were read in Pass 1, produc tng 17 object records in Pass 2. 
32 pages of virtual memory were used to define 29 macros. 
ween es oe en me ee eH 
: Macro Library statistics : 
Macro Library name Macros defined 
-$255$DUA28: (CSHRLIBIPALIB.MLB; 1 ; 
_8255$DUA28 : (BOOTS .OBJJBOOTS.MLB; 1 
_8255$DUA28: (SYS.OBJJLIB.MLB; 1 10 
$255$DUA28: (SYSLIBISTARLET.MLB;2 8 
TOTALS ‘all Libraries) 2 
2197 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:PABTDRIVR/OBJ=0BJ$:PABTDRIVR MSRC$:PABTDORIVR/UPDATE=(ENHS$:PABTDRIVR) +EXECML$/L1B+L1B$:B00TS .MLB/LIB+SHRLIBS:PALIB/LIB 
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